MSX Magazine 1-25

MAUBERT ELECTRONIC

IMPORTATEUR EXCLUSIF

E-MONACO- ANOORRE

LOGICIELS pour MSX

HAL-KONAMI

PLUS DE
40 MODELES
DISPONIBLES

CARTOUCHES STANDARD

inyo Canon Yamaha Sony

ILE - STOP • HYPER SPORT 3 • DISP

NOU VE AUTÉS top hyper sport3 ■ disponible

KNIGHTMARE

SJ • • II

ET TOUJOURS LES CATALOGUES A SUCCES

STEP OP

AM]n«K!

PICTURE PUZZLE

HYPER OLYUPIC 1
TRACK tnó FIELO 1

Mr CHIN

¡PACI TROUBLE

SUPER COBRA

MMHFI tfiiwn

CIRCOS CHARUE
TIMEPIIOT

BUTAMARU
DRAGON A TTACK

SPACE A TTACK

COUIC BAKERY
SKY JAGUAR

HYPER SPORTS 2

SUPEB BIUABO

ROUERBALL

MOPIRANGER

HYPER SPORTS 1

^ DISTA

MAUBERT ELECTRONIC

49. bd Saint Germain 75005 PARIS. Télex 203 939 F

UNE NOUVELLE GENERATION DE JEUX MSX

Construisez vous-méme vos diflérents tableaux de jeu.

"HDCEinunE"

ET TOUJOURS LE CATALOGUE A SUCCES

STEP UP FRUIT SEARCH

HEAVY BOXING

BUTAMARU

PICTURE PUZZLE ¡ SUPER SNACK

SPACE ATTACK

DRAGON ATTACK

Mr. CHIN | SPACE TROUBLE

ROLLER-BALL

SUPER BILIARD |

CESTNOUVEAUCESTSONY

SONY CREE
L'INTELLIGENCE
ÉVOLUTIVE.

-tnfotmatique aujourd'hüi
juveau concept de micro-urdí
préceúent. les logiciels, le:

Chaqué |Our, le public se demande s il faut acheter un micro-ordrna-
leur aujourd'hui ou s il faut attendte demain. et méme aprés demam.
Chaqué jour. un possesseur de micro-ofdinateur cesse de se servir de

eiemple le micro ortíinateur SONY HIT BIT 501 comme premier

Patee qu'il vuus propose une forme d'mtelligence loutá la lois ciéati-
ve el ludique. pralique et concrete, il esl ideal pour vous qui souhailez
maítriser l'inlormatique ou pour vos entants qui veulent s'y imlier
Et si par la suite vous désirezévoluer progressivement vers des appli-
cations plus élaborées. ch
le HIT BIT 500.

logithéque chaqué jour plus impor-
plus complete
isystéme HIT BIT SONY, pre

i üi lite. SONY vous ou

vous propose un véntable systémí
cohérent et évolutil. entiéremen
compatible

veiie forme d ínteUtgence. fi

HIT BIT.

LE rSYSTEME NÉ DE LA COMPATIBIUTÉ.

SONY

9

iPiEüRjl

Sanyo DR-202A

Le

meilleur
des

magnetos'.

gnée avec des couleurs agréablcs el un
di-.Mii qui icsscmble á quelque chose.
Ioulcs les ainiMi.irkli.-N umihent bien
nihin k-N JoririN. clIcN Noni fáciles á uiili-
Ntr el nc provoquen! pas de baseulement
ii. iii de l'appareil. La trappe

bh uef mí " om \Vl ai i'ucn " i k"

A l'arriérc on irousc un selecieui de vol-

l.iee pour les noslalgiques du 1 10 V ou

ur obligcra á une liaison

Toujours des problémes avec les cassettes pour nombre d entre
vous qui nous renvoient des cassettes de listings alors qu'elles
sont en parfait état. La cause evidente t des magneto-cassettes
qui sont loin d'étre pariaits '. Suite á notre article « Pour en finir
avec la cassette » voici le test d'un magneto-cassette le Sanyo
DR-202A. II n'est pas donné mais il est meilleur que ceux que
d'essayer jusqu a présent...

elassiques : chargement. sausegarde
(avec lémoin lumincux), défilement
lapide dans k-N deux sens el iouchc
d'arrei ejeeiion. I n amipleui mecani
que vous penncl de reperei lacilemenl
un endroil sur la bande el, pin. NophiN-
nque. k-DR 21 C esl equipe d'un syslémc
de recherchc aulomalique de pro-
la bande enlre deux programiik-N. Ce
dlNpONilil. aplH-k M)SS acccplc

meme de compter jusqu'á trois mor-

NeenndeN] enlre k-N pioeiannncN POUI
que cela fonclionne correclcmcnt. Une
louche "Sase Mulé" vous y aide. Pour
le chargemeni des programmes un
poiciuioiiicitc wm perinel de régler le

de loui lémoin dans cette
Par comrc vous disposez
>ute pour vous rendre cumple
nc passe (« Monitor »)• tnfin,
e diHiculics, il esl possible

16

iP = E = R=I=P = H=E = R=I=Q=U¡E = Si

Mesures, et essais

le plus ¡ntcressani reste loutct'ois la
haiklo passantc cjm . sin hmli !., playo
Je Irci] uenecs ulilisees p.nu rcnrcuisire-
nlcnl di- pioel animes inlornunqucs. est
parfallcnicnl lincanc < c modele tune

2 400 bauds. O
controle

cas ccnciall ruáis anssi a

" i est bcaiis.'up plus

cst suffisante ct le
..lie de gaill etlieaee
es sinnenables. Si la dis

Conclusions

Le Sanyo DR-202A est un apparcu cm
peut-etre le plus cher dans sa catégor
mais — jusqu'á present — c'cst le meil
leur que nous ayons rencontre I II s'agi

nc vous fait pas peur vour J — -•

r/.v pn^rjinirit^ tnforiuülu/i

VIDEO

UN NOUVEAU JOURNAL
OUI VOUS PARLERA DU
MATERIEL VIDEO
SANS FAUX-FUYANT NI COMPLAISANCE

sais

sRaTBT50¡RBTSA5G:

Point de vue

L'avenir tech ñique du
standard MSX

Le MSX a deja amorré son intégration vers les applications video
et musicales principalement. II est decide a s'adapter au mieux
a l'univers familia! et aux évolutions technologiqes. Toutefois il
faut espérer qu'il connaisse un large développement au niveau
mondial afín que ees micro-ordinateurs ne restent pas de sim-
ples consoles de jeux, ou d' applications restreintes.

Pour étre concrel cel
le micro ordinateurd
sanee ou mieux encoró se mulliplier so
des formes adaptées á des applications
spécifiques, lout en cons
tire propre au MSX, I
complete, matériellc et logicielle. Tou-

affronter en France ui

mais plutol

Sur le plan du graphisme, s

tion de ees co-processeurs tres -.peciali-
ses, puissants et rapides. Sur le plan
musical, ■> ainaha nous propose ses pro-
cesseurs de son I M numérique dans les
sMitiietiseurs SI (, 01 el SI C, 1)5, mais
aussi bientot l'option MSX-audio qui
elle aussi contiendra un de ses proces-
seurs. Ajoutons par cxemple un synthé-
tiseur vocal, les périphériques classi-
ques. lecteurs de disqueros, inlerlacc
RSMIC. imprimante, los per.pl.ciiques
MSX '..iullieeni.' qui l ontiendraicnt
une CPU MSX, done des micro-
ordinateurs esclavos (debut d'un nano-

sateur) et les futurs périphériques que

oút. lous ees périphériques nc sont pas
lotés de leur propre imité céntrale de
leslion. louletiiis, c'csl la une des idees
le l'osolution du MSX qui souhailo soii
c dévcloppcr ce principe consistan! 4

entro l'apparcil lui-méme et le micro-
oidinateur MSX principal du foyer.
Bien sur los Japonais auraient pu nous
concevoir uno nouvclle versión du Z80
compatible piloté par une horloge á
10 MHz plutót qu'á 3,58 MHz. Mais le
développement du MSX est trop rapide

as ecrarm eed'ici 1987/1988 du MSX 3

Le MSX 2 nous aura apporté tout de
méme de grandes améliorations sur le
plan technologique, avec une capacité
mémoire de base plus importante, ce qui

aTsEgCeHSNBlgQBUiEE

MSX-DOS et
MSX DISK BASIC

]

De nombreux utilisateurs se demandent quelle est la différence
entre ees deux notions : MSX DOS et MSX DISK BASIC. Le but
du présent article est d'essayer de préciser leurs fonctions et
leur différences. Aprés l'avoir lu, vous devriez avoir compris ce
que c'est qu'un "systéme d'exploitation de disquettes".

í

1 es mik.-ro-oriiinalt.-iir-. MSX n'ayanl pas
forcement Je leeieui Je Jisquenes on
versión do hasc. lo logiciol Je baso per
moll.iiil Je lev csploiler n'eM pas inclus
Jan» la machine .lev le Jopan ( o logi
. i. l Jo llave, ou síteme J'esploilation.

-'— 'u imerface)

i lev fichiers.

lyretranchcr Jes nit.v
maiions. A ce niveau nous venons d
passer en rosne lev principales opei.

dTpoim°de" C ue P du DOS. il y a bic
d'aiilrov dioses a taire a\an! .ola. au
niveaux moins elabores. I'oi
quer, il convient d'abord d
quelques rappels sur la disquelie et

rl magnoli-

Une disqucii
que sur lequ

de la disquclie est divisée en pistes sépa-
ioos. duque pisu « veparéeen un ccr-
lain nombre Jo secicurs oomprciuni

reperes. A ce propos il c-i nulo Jo Mena
ler qu'unc des l'onotions principales du
formatage esl précisémcnl d'allcr écrire

d'esploil.uion. II faul b

irendre que ees repéres

s. MSN DOS oí MS DI 1S J,

FICH1ER ou PROGRAMMF o<

:s langages de pro-

ci permcllaiit do siruclurcr rinlornia-
lion sous forme de variables et de
tableaux. alors que le langage machine
no eonruil que Jes emplacements de
memoire. II est clair que les tableaux
corresponden! aux fichiers, et les varia-
bles aux enregistrements.

Comment se retrouver
sur la disquette
saris se perdre !

d'un lieliier Jo donnoes ou d'un fichier
de programmes (en effet. pour le DOS
un programme esl loul simplomeril un
ircl.ierl muís allons Jone étudier com-
rnenl lo MSVDOS (el aussi bien le
DISK ISASK ) retrousent sos ]x-iilsdans
le maquis inorganisé des secteurs de la
disquette.

1 e DOS utilise pour ce taire deux auxi-
liares, le réperloirc (direcloryl el la
table d'allocationde fichiers (File Allo-

2 «M^dO 'sUocESTtSk It Ce
module de I K. qui est l'unitéd'alloca
lion de fichier, plus petitc quantité attri-
buablc á un fichier. esl appclée granule
(clustei en anglais). I rl appliealion de
ce qui precede, si vous créez un fichier

quette. 1 es raisons de cene convention
son! d'avoir simpliíié le Iras ail Jes con
eepieurs du systéme. En effet. cene con-
vention permet de gerer des disques
deux Ibis plus gros que si Ton idenlifiait

il.. ..' .-pe:

fichiers présents sur le disque el pour

il,

raeinc du fichier lui a ele- alinbuo lor-
de sa créaiion en exploran! la FAT afin
de irouver le numero du premier granule
libre. Nous reviendrons dans la

= T = R = U = C=S=cr = A=S=T=l.'5C:=E5S

L'instruction

DEEK

l'oi

niel ion correspond done á I'insluc-
i PEEK (Adrcssc) + 256'PEEK
ressc+ I). L instruetion DEEK do»
mise en applicalion dans le Basic

1 vérifie que le paramclrc conimum-
que csl cclui du Ivn upe. Si ee n'cst p.iv
le cas. il íaul provoquer l'édilion de
"Typ Mismaleh Error".
()n realisc eeiic edilion en chargeant
dam le registre I . le numero de l'erreui
eoncspond.ini. el en .ill.ml eiiMine a
ladrcssc&H-tlW (ri.iiiine d'cdiuon des
messages d'erreur).

>n de Typ Mismatch

Irée, qui éviic la modificaron du
üre E. Pour le message Typ Mis-
:h Error, cene adrcssc esi &H406D
>eui done Minplilicr le programme :

CP ; Typ 2 ?
JP NZ.&H406D ;
match Error"

fonction CINT.

Si nous appclons au debut d'un pro-
cramme maelline la roulinc CINT. la
ti.i::vim.iti»n esl aulomaliquemcnl
esecutéc. I ne erreur du lype preceden)-

nes C'SNCI (&H2I-B2) ct CDBL
LUmn \, Repone/ >ous a la table qui
esi a la fin de ee lurc. ou soni repcrlo
rices lomes les roulines swemes trailées
dans ee lisie, ainsi que hcaucoup d'au-

20'LDHL.(&HF7F8);valeurd
30 ! D E (HU , octet de poids

:t &HF7F9. Dans les lignes 30 á 50, l¡
alcur des deux octels. qui soni situé;
i ees adresses, est chargée dans le regís

es ¿.Hl "I S ».

:n ouire l'accu

indicaieur du lype de

don conlenir

&HF7F6.

60'LD (&HF7F8),DE; résultat de "DEEK"

70LD HL.&HF7F6

80RET

PRINT PEEK(2|+256-PEEK(3)

( e qui signilic que la valeur des deu\
ociéis. roouMi:<P. esl placee a par-
tir de l'adrcssc 2.

10 REM DEEK

20 CLEAR 200.&HEFFF

30 FOR 1 = &HF000 TO &HF010 READ

AS

40 POKE l,VAL("&H" + a$):NEXT
50 DEFUSR1 a &HF000
60 DATA CD.8A,2F,2A,F8.F7,5E.23
70 DATA 56.ED.53,F8,F7,21,F6.F7.C9

aTe"R = U,= C=S=ot = A=S=T = r5C:=H = S =

L'optíon MSX-audio,
une usine á sons

Les informations concernant l'optíon MSX-audio pour le M5X-2
tardaient a nous parvenir en trance, alors qu'on avait pu voir,
venant du Japón, un logiciel de démonstration l'utilisant. Yamaha
f ranee ignorait mente son existence ! Nous avons obtenu direc-
tement du Soleil Levant la notice technique du fameux LSI Y8950
MSX-audio.

Synthétiseur FM á
irumems rythmiques (grosse c

á six voix et cinq in

l n os^llateui hasse Irequenee pour le

Un circuil de synlhesc vocale.
l.'n eomertissan .inalOLUque-iuiinei i
que. el de\anl ene placea l'e\leneui un
eomenissair nunicnquc-analogiquc
.uivm cvploue pa. le switheiiseui I M.
Cccircuil peu! euoulie .non vi p.oprc
mémoirc Rom ou Ram spécialcmcni
pour la s> nlhésc vocale. ou qui peul étre

l - Y8950 peul adress

•a :>6 k.

Le synihétiseur FM

I es emeloppes p.u evemple n'om que
q>«t!c paramci.es .maque, decay, sus-
lam. relean- De .nenie d'.ipies la carie
d'adrcssc des rce.islrcs du circuí!, un
constate qu'il > .1 sensihlciuc.it monis de
paiamelres que su, lev ssiiihciiscuis
mleeie- .iu\ iniero ordm.ileur- MN\ de
Limalla. Iouiclois ¡1 ne l'aut pas
ouhhei M uc -e .11,1111 esl miiioiii desune
a leniplaeer les ccnc.atcurs trois \0l\

v-iavsiqiic. dc> n • oidiiiaicm s qn'iK

soieill ou non MS\. el elohalciiicnl il
s'aiiii d'uii eomposaui performant.
Comme nou» l'avons dil il peul tone-
Iionncr sous plusieurs modes. swiihcli-

Analyse et synthése vocale

II s'agit lád'un organc speeialise du pío

W M.< tñpmm effe» «reglitrei mi

qui seraconveni ei

hande passaniel. I ors de la synlhésc
wis.ile la sume de doimees imiiiei iques
peni s'ctlcviucr sur une fréquence de
1.8 KHz á 50 KHz.
I inalemcnt 011 disposera aussi de la pos
sihihie de numériser un son d'une
maniere elassique ou d'en sorlir un sin
le eoinerlisscui numeiique aiiuloii.qi.c.

programme interne au MSX p

son enregisire numériquement afín de

jouer une pariilion de Paganini.

li teste cmoicquclqucs peines lonclions

mem un bus I o pour conncclér ur
vicr qu'il soil alphanumcriquc ou n
,al l)n reeretteta que ee ptoccssciii ne
son qu'en oplion su. le MSX-2 ee qui

5 1 i i 1 i a g

8 i 3 3 I i i i

f j i i i |f 3' 3 I « a i § «

Figure I : le brochóte du Y89S0.

= L=IgS5TiTÍN^GfS =

Jazz Guitar

jouez de U guiiare jazz 520 '

1 60T0 830
1:G0SUB 6020
:3:G0bUB 6020
^5:GQSUB 6020
7:GOSUB 6020

^US = T=I=N=GgS= j

ACCORDS DE SEPTIEME

T STRIN6$(35, 192)

T STR1NG*(35,223):F

1 TG 12:L0CATE 2, I+5:PRINT N0*(I);TAB(9

FOR 1=1 TO 5: LOCATE 1
A=USR 2(0)

I+5:PR1NT QU*(I

1200 '

1210 LOCATE 2,20:PRINT"Entrez votre choix :":LOCATE 5, 22: PRINT"-
";:GOSUB 2000:R1*=R*: IF R«<>"1" THEN 1220 ELSE GOSUB 2000:R2«=R
1220 F=VAL (Rl*+R2*> : IF F<1 OR F>12 THEN 1210
1230 PRINT « (";NO«<F);">"

1250 LOCATE S,23:PRINT"-
HEN 1250
1260 RETURN

2000

2010 '

2020 R*=INPUT

;: GOSUB 2000: Q=V

3010 '
3020 LINE
3030 LINE

3100 FOR 1=1

3120 PSET (54,391,15
3130 PSET (84,391,15
3140 PSET (113, 39), 15
3150 PSET 1 115, 39), 15
3160 PSEK1B9,39>,15

4020 IF LEN(N0*(F>>=1
4030 LINE (179,97>-(2
4040 PRESET (185,106)
4050 PRINT#l,"=":MID«(NO*i
MID«(QU*(Q> ■ 11,2)

4070 PRESET (157,
40B0 PRINT«l,LEFT*(NO»
(0U*(Q),11,2)
4090 RETURN

5020 PRESET (18,1091,12
5030 PRINTH1, "EFFACER: <
5040 PRESET (18, 124), 12

. (R*):IF Q<1 OR Q>5 T

PRINTtl , "CHANGER: <C>"
PRESET (18,1391,12
PRINT»l,"ACCORD ! <1><3><5><
RETURN

FOR 1=-12 TO 24 STEP 12 '
FOR J=l TO 6 '6
CA=F+VAL(MID*(AC*(Q),K,2)
PRESET((CA+I>I15,J»10>,9
IF CA+K0 OR CA+IM5 THEN

PRESET (18, 154), 12
PRINT#l,"TENSIONS PERMISES:"
FOR 1=1 TO (LEN(TS*(Q) )/3)
LINE((I*32¿-20, 165)-<<I*32>+

T*=MID*(TS*(Q) , (I*
IF T*=" "THEN 71
PRESET) <It32>-14, 1
PRINT»1,"<";CHR«(6
PRESETÍ ( IÍ321-14, 1
PRINT#1,T$

RETURN

CL=CL(ASC(R*)-69) 'couleur c
FOR I=-12 TO 24 STEP 12 '3 .
FOR J=l TO 6 '6 co

CA=F+TS-C0(J>

IF CA+H0 OR CA+IM5 THEN 8

LINE (8+ <CA+I)*15,J*10)-( 11+

)I15,8+J*10),CL,BF

NEXT J,I

RETURN

VIDEOTROC

89 bis, rué de Charenton 7501 2 PARIS ouvert du mardi au samedi

Metro : Ledru-Rollin / Gare de Lyon de 10 H á 19 H non stop.

Tél. : 43.42.18.54 e* ,e lundi de 14 H á 19 H.

i¡mmm§

PHILIPS MSX2

256 K de RAM, LECTEUR DE DISQUETTES 360 K INTEGRE, CIAV1ER
ORIENTABLE, MONITEUR HAUTE RESOLUTION COULEUR OU
MONOCHROME, FOURNI AVEC TRAITEMENT DE TEXTE, GESTION
DE RCHIERS, LOGICIEL DE GRAPHISME ET UTIUTA1RE DOS.

PRIX : MSX2 PHIUPS VG 8235 N

(avec monlteur monochrome) 5990 F

PRIX : MSX2 PHIUPS VG 8235 C

89 bis, rué de Charenton - 75012 PARIS
******* ******************

HB 900 + digitaliseur disponible !

BRAS ROBOT SPECTRAV1DEO 1 INTíRfACE : 950 F ^^Zri& I]

SYNTH ETISEUR VOCAL : 490 F (Port rallonge : 120 F)
« ★★★★★★ SUPER PROMO

YAMAHA : UCN-OI YK-01 + SFK-01 : 1690 F

f Catalogue gratuit sur simple demande !

BONDE COMMANDE : j

CREDIT CREG IMMEDIAT
FACILITE VIDEOTROC
C ARTES DE CREDIT

¡ offrir Eddy II ve
oui de méme dess
e MSX. A conditic
t d'un MSX d - a

Creaphix

*** CREAPHIX ***
Entiérement réalisé par
Vu Anh Tuan. 14 ans

SONY MSX^Hit Bit 75F

Terminé le 18. 10.B5
Anh Tuan

77420 Champs/Marne

21.450 Ko de R(
' DONC, II ne marcl
MSX ayant 64 r

d COLORI, 1,9

» SCREEN2,2.0,2:PLAY"L16V7"
I CLEAR900,Í,HC5CA:GOTO140
i GOTO 190
3 GOSUB1460

3 MAXFILES=2: OPEN"GRP: "AS#1 : OPEKPGRP: "AS#2

i X=128: Y=96: Z=128: T=96: C0=1 : CR=2: W=l : 0=0: LL 1=0: LL2=0

3 GOSUB1880

i FO=1:CR=11:J=2:H=1:O=0
i> GOSUB1970

i PUTSPRITE0, <X,Y),CR,16:PUTSPRITE1, (Z,T),CR,1

I ONFOGOSUB350,420,520,600.700,770.900.970, 1050. 1130, 1200, 1290, 1410
J A=STICK<0):K*=INKEY»
) IFCR>14THENCR=1

i» IFK$=CHR$(3) THENPL A Y "CFB" : CR=CR+1
) IFA=1THENY=Y-W:PUTSPRITE0, (X,Y),CR, 16
í IFA=5THENY=Y+W:PUTSPRITE0, (X,Y),CR,16
) IFA=7THENX=X-W:PUTSPRITE0, <

í IFA=3THENX=X+W:
1 IFA=2THENX=X+W¡
t IFA=4THENX=X+W¡

> IFA=6THENX=X-W¡

> IFA=8THENX=X-W¡

PUTSPRITE0, (X,Y),C
Y=Y-W:PUTSPRITE0, (
Y=Y+W:PUTSPRITE0, (
Y=Y+W:PUTSPRITE0, (
Y=Y-W:PUTSPRITE0, (

LjTaSiTi I ¿N¡G¿S =

330 IFA=0THENONJGOSUB3080,3200
340 6OTO200

350 '

360 * ~' TRACE —

370 '

380 Q=l

390 GOSUB3210

400 IFSTRI&<0)=-1THENPSET<X,Y),C0
410 RETURN
420 '

430 ' — POINTILLES —

440 '

450 Q=2

460 GOSUB3210

465 I FK*=CHR$ < 9 ) THENLL 1 =CO : CC= 1 : GOTO5250

466 IFK$=CHR$ (11) THENLL2=C0: CC=2: GÚTO5250
470 QQ=INT<RND<1)»2)+1

480 I FQQ= 1 THENGOTO500
490 1FQQ=2THENRETURN
500 IFSTRIG(0)=-1THENPSET(X.Y) . CO

510 RETURN

511 FORP0=0TO 1 92 : FORP 1 =0TO255 : I FPO I NT ( P 1 . P0 ) =L L 1 THENPO I NT ( P 1 , P0 ) , CO

512 NEXTP1

513 NEXTP0

514 GÜTO220

515 FORP0=0TO 1 92 : FORP 1 =0TO255 : IFPOINT (Pl . P0> < LL2THENPRESET (Pl , P0) , CO

516 NEXTP1

517 NEXTP0

518 GOTO220
520 '

530 ' — TRAITS —
540 '

550 Q=3:PUTSPRITE1, (Z.T).CR, 1
560 GOSU83210

570 IFBTRIG(0)=-1THENLINE(Z,T)-(X,Y),CO

580 IFK*=CHR*U3)THENZ = X: T=Y: PUTSPRI TE1 , (Z,T) ,CR, 1

590 RETURN

600 '

610 ' — ECRITURE —

620 '

630 Q=4

640 GOSUB3210

650 IFSTRIG(O)=-1THENGOTO670

660 RETURN

670 K$=INKEY$

680 IFK*=""THENGOTO670

690 COLORCO: PSET ( X , Y ) , CO: PRINT#1 , K$: GOTO600
700 '

710 ' — REMPLI --

750 IFSTRIG(0)=-1THENPAINT(X,Y),C0
760 RETURN
770 ONERRORGOTOB80
780 '

790 ' — CERCLE — CERCLE PLEIN —
800 '

810 Q=6:C=ABS(X-Z):S=ABS(Y-T)

77-0
740

0=5

GOSUB3210

31

= LeT-SitVl =Ñ=G=S = =^=^=

820 PUTSPRITE1, (Z,T) ,CR, 1
830 GOSUB3210

840 1 FK»=CHR$ ( 9 ) THEN I FOSTHENC I RCLE ( Z , T) , C , CO, , , S/C : PA I NT (2, T) ,COl ELSEC IRCLE < 1 , T
),S,CO,,,S/C:PAINT(Z,T),CO

850 IFK$=CHR*(13)THENZ=X:T=Y:PUTSPRITE1, (Z,T) ,CR, 1 *

860 IFSTRIS(0)=-1THENIFC>STHENCIRCLE(Z,T),C,C0,,,S/CELSECIRCLE(Z,T),S,C0,,,S/C

870 RETURN

880 I FERR= 1 1 ANDERL=860THENPR I NT
890 RESUME220
900 '

910 ' — EFFACE ECRAN --

920 '

930 Q=7

940 GOSUB3210

950 IFSTRI6 (0) =-1 THENLINE (0, 0) - (256, 192) , CO, BF: COLOR, CO
960 RETURN
970 '

980 ' — RECTAN6LE —
990 '

1000 Q=BiPUTSPRITEl,<Z,T),CR,l
1010 GOSUB3210

1020 IFK*=CHR*(13)THENZ=X:T=Y!PUTSPR1TE1, (Z,T),CR,1
1030 IFSTRIG<0)=-1THENLINÉ(Z,T>-<X,Y>,C0,B
1040 RETURN
1050 '

1060 ' — RECTANGLE PLEIN —
1070 '

1080 Q=9:PUTSPRITE1, (Z,T),CR,1
1090 GOSUB3210

1100 IFSTRIG(0)=-1THENLINE(Z,T)-(X,Y),C0,BF

1 1 10 IFK«=CHR$ (13) THENZ=X : T=Y: PUTSPRITE1 , ( Z, T) , CR, 1

1120 RETURN

1130 '

1140 ' ~ POUTOUR —

1160 Q*10
1170 GOSUB3210

1180 IFSTRI6(0)=-1THENC0L0R, ,C0;SCREEN2
1190 RETURN
1200 '

1210 ' -- LECTURE —
1220 '
1230 Q=ll
1240 GOSUB3210

1250 IFSTRIG(O)«-lTHENlGOTO1270
1260 RETURN

1270 FORS«0TOlliPUTSPRITES, (8, 193) ,0,SlNEXTS

1280 L=USR (0) i L-USR1 (0) ! MOTORON i MOTORQFF i BLOAO " i maq e " i L»USR ( 1 ) t L=USR1 (1)1 GOTO 197
í>

1290 •

1300 ' — SAUVEGARDE —
1310 '
1320 Q=12
1330 GOSUB3210

1340 IFSTRIG(O)=-lTHENiGOTO1360
1350 RETURN

1360 FORS-GOTOTOlllPUTSPRITES, (236, 97) , 0, Si NEXTS

1370 L=USR(0) :L»USR1 (0) :MOTORON!MOTOROFF!BSAVE"im«g«",&HC600,í<HEFFF:L=USR<l) :L»U

SRl(l)iGOTO1970

1380 '

32

^T7yTíS5TYraW¿Gís= \

1410 Q»15
1420 GOSUB3210

1430 IFSTRIG(O) — 1THEN6OTO23B0

1440 IFK«=CHR*(13)THENZ=X¡T=Y¡PUTSPRITE1, (Z,T),CR,1
1450 RETURN
1460 '

1470 ' ~ SPRITES —
1480 '

1490 DIMA$(64)
1500 F0RN=iT064
1510 F0RQ=1T08
1520 READX

1530 A*(N)=A*(N)+CHR*(X>
1540 NEXTQ

1560 DATA64 48, 40, 20, 10, 5, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, <¡>, «>, ®> »» e < ». 0 > A' 0 > 0 > "< 0
1570 DATA255, 255. 128, 128, 191 , 160, 160, 160, 160. 160, 160, 191 , 128, 128, 255, 255, 255, 255

1580* DATA255! 255^ ?2b! ^Is", 135¡ 135^ 135, 135, 135, 135, 135, 135, 135, 128, 255, 255, 255, 255
.1,223,225,225,225,225.225,225.225.225,225, 1,255,255

1590 DATA255.255, 128, 136, 156, 190, 190. 190. 190, 190, 156, 137, 128, 128,255,255,255,255

1 49,73, 133, 133, 73,49, 1,249,5,249, 1,255,255
1600 DATA255.255, 128, 144, 174, 161, 160, 160, 159, 159, 159, 143, 135, 128,255,255.255,255
" , 1 , 1 , 1 , 129. 121 , 5. 25 ;, 253. 25 ;. 25;. 249, 1 , 255, 255

1610 DATA2SS.2SB, 128, l», 159, 160. 191, 191, 191. 191. 160, 159. 128, 128.255,255,255,255
, 1 , 1 , 249, 5. 25 25 25 ; . 25 : . 5, 249, 1 , 1 , 255, 255

1620 DATA255, 255, 159, 170, 170, 170, 187, 174. 160, 145, 142, 132, 191, 128, 255, 255, 255, 255
,1,129. 129. ¡29, 129. 129, 1 29. 1 . 1 . 1 . 253, 1 , 255, 255

1630 DATA255, 255. 159. 170. 170, 170. 187, 174, 160, 145, 142, 132. 12B, 128,255,255,255,255
, 1, 129, 129, 129, 129, 129, 129, 1 , 1 , 1 , 1 , 1 , 255, 255

1640 DATA255.255, 126, 128, 128, 129, 129. 130. 136, 148, 162, 190, 162, 128,255,255,255,255
,33,81, 161,65, 129. 1,241, 137,241. 137,241, 1,255,255

1650 DATA255, 255. 128, 128,159.191,191.191,191,191,191,159,128,128,255,255,255,255
, 1 , 1 , 249 , 25 ; . 25 ; , 25 ; , 25 J . 25 3 , 25 í . 249 . 1 , 1 , 255 , 255

1660 DATA255.255, 128, 132, 130, 145. 136, 132. 130. 129, 128, 128, 128, 128,255,255,255,255
, 1, 1, 1, 1, 129,65,65, 161,97, 1 7, 9, 1 , 255, 255

1670 DATA0, 0,0, 64, 70, 73, 105, 9, 6, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 64, 160, 224, 172, 10, 10

¡1,87,36,6,4,7,0

,0

1690 DATA0, 0,0, 0,0, 0,0, 0.0, 0,0, 0.0. 0,0, 0,0. 128.192,224,240,248,252,254,252,248,2
40,224, 192, 128,0,0

1700 DATA0, 0.0,0. 1.0, 112, 112,112,112, 112, 112, 127,63,31,0, 16,56, 124,254,255,56,56
, 56, 56. 56. 56, 56, 248, 240. 224, 0

1710 DATA64,32,24,30, 13, 10, 5, 2, 1 , 0, 0, 0, 0, 0. 0, 0, 0. 0, 0. 0. 0, 128,64, 160,80, 168,84,42
,22. 12,0,0

1720 SPRITE* <1>=A*(1>+A*(2>+A*(3)+A* (4)
1730 SPRI TE* (9) =A* (5) +A* (6) +A* (7) +A* (8)
1740 SPRI TE* (10) =A* (9) +A* (10) +A* (11) +A* (12)
1750 SPRITE*(7)=A*(13)+A*(14)+A*(15)+A*(16)
1760 SPRITE*(6)=A*(17)+A*(18)+A*(19)+A*<20)
1 770 SPR I TE* ( 1 1 ) =A* (21) +A* (22)+A*(23)+A*(24)
1780 SF'RITE* (2) =A* (25) +A* (26) +A* (27) +A* (28)
1790 SPRI TE* (3) =A* (29) +A* ( 30) +A* (31 ) +A* (32)
1800 SPRITE*(5)=A*(33)+A*(34)+A*(35)+A*(36>
1810 SPRITE* (8) =A* (37) +A* (38) +A* (39) +A* (40)
1B20 SPRITE* (4) =A* (41 ) +A* (42) +A* (43) +A* (44)
1 830 SPR I TE* < 1 2 > =A* ( 45 ) +A* ( 46 > + A* ( 47 > + A* < 48 )

.840 SPRITE*<13>=
850 SPRITE$(15)=
860 SPRITE*<14>=
870 SPRITE$(1

K49)+A*(50)+A*(51)-
M53)+A*(54)+A*(55>h
M57)+A*(58>+A$<59)-
>+A$(62)+A*«

880 CK=0: REBTQRE 1 950: FDR I =*(HC5CAT0Í<HC5FF
890 READB$:D0=VAL("8íH"+B«)
900 POKEI,DO:CK=CK+DO
910 NEXTI

920 DEFUSR=Í<HC5CA:DEFUSR1=« ( HC5E5

9.30 IFCK< >4701THENSCREEN0: PRINT"ERREUR DE DATAS. " : PRINT
940 RETURN

950 DATA F3,CD, 1F, 52, F5, 21 , 00, 00, 1 1 , 00, C6, 01 , 00, 15, F 1 , A7, 20, 05, CD, 59, 00, 18,03,C
',45,07,C9

960 DATAF3, CD, 1F, 52, F5, 21 , 00, 20, 1 1 , 00, DB, 01 , 00, 15, F 1 , A7, 20, 05, CD, 59, 00, 18, 03, CD

45,07,C9
970 '

MENU & COULEUR —

236, 197) ,0,D:NEXTD:PUTSPRITE1, (236, 1

,CR, 15:FORH=1TD50:NEXTH:
,CR, 15:FORH=1TO50:NEXTH:

2020 PUTSPRITE4,
2030 PUTSPRITE5.
2040 PUTSPRITE6,
2050 PUTSPRITE7, (M, 70) , CR, 7
2060 PUTSPRITE8, (li, 84) , CR, 8
2070 PUTSPRITE9, (M,98) ,CR,9
2080 PUTSPRITE10,
2090 PUTSPRITE11,
2100 PUTSPRITE12,
2110 PUTSPRITE13,
2120 PUTSPRITE14,
2130 F0RD=16T024:PUTSPRITED,
2140 PUTSPRITE15, (220,1 ~~
2150 N=1:BP=2:F0=1:E=1
2160 F=STICK<0> :F*=INKEY*
2170 E=l: IFC0=ETHENE=15
2180 IFE>15THENE=1

2190 IFF=5THENN=N+14:SP=SP+1:F0=F0+1:PUTSPRITE15, (220,
IFSP>14THENGOTO1980

2200 IFF=1THENN=N-14:SP=SP-1:F0=FD-1:PUTSPRITE15, (220,
IFN<.0THENGOTO2140

22 1 0 I FF=7THENPLAY "CDE " : FORKM=2TD 1 5: L INE (4, 170) - (23, 189) , E, BF: PUTSPRITEKM, (6, 17

) ,CO,SP:NEXTKM:SÜTO220

2220 IFF=3THENPLAY"EF&":GOSUB2260

2230 GOTO2160

2240 SP=1:8ÜTO2260

2250 REM

2260 FORH=15TO20:PUTSPRITEH, (236, 197) , 0, H: NEXTH

2270 FORH=1T015:PUTSPRITEH, (236, HI13-16) , H, SP: NEXTH

2280 PUTSPRITE16, (220, l),CO, 15

2290 D= 1 : CO= 1 : ONERRORGOTO2360

2300 F=BTICK (0) : IFCO< 1 ORD > 1 90THENGOTO2260

2310 E=l: IFC0=ETHENE=15

2320 I FF=70RF=3THENPLAY "CDE " : F ORKM= 1 TO 1 6 : L I NE ( 4 , 1 70) - ( 23 , 1 89) , E , BF : PUTSPR ITEKM,
6, 171),CO,SP:NEXTKM:GOTO220

2330 IFF=5THEND=D+13:C0=C0+1:PUTSPRITE16, (220, D) ,CO, 15: FDRH=1TO50: NEXTH
2340 IFF=1THEND=D-13:C0=C0-1:PUTSPRIT£." "
2350 GOTO2300
2360 PRINT: RESUME2290
34

, (220,D),CD,15:FORH=1TO50:NEXTH

= L=I=S=T=I=N=G£S= =

2370 GOTO2300
2380 '

2390 ' — FONCTION SPECIALE —
2400 '

2410 GOSUB2640

2420 PUTSPRITE1, (2 , T) , CR, 1 : PUTSPRITE0, (X,Y),CR,lé>
2430 A=STICK<0) :K*=INKEY*

2440 ONHGOSUB2660, 2740, 2800, 2850, 2900, 2960

2445 ONKEYGOSUB2450 , 2490 , 2460 , 2470 , 2480 : KEY ( 1 ) ON : KEY ( 2 ) ON : K
5>ON:GOTO2510

2450 H=2:PLAY"CFB":PUTSPR1TE2, (237, 1 70) , 15, 4: GOTO2500
2460 H=3:PLAY"CFB":PUTSPRITE2, (237, 1 70) , 15, 7: GOTO2500
2470 H=4:PLAY"CFB":PUTSPRITE2, (237, 170) , 15, 9: GOTO2500
2480 H=5:PLAY"CF8":PUTSPRITE2, (237, 170) , 15. 10:GOTO2500
H=6: PLAY"CFB" : PUTSPR1TE2, (237, 170) , 15, 3
IFCR>14THENCR=1

I FK*=CHR» ( 24 ) THENPLAY "GAB " : GOTO 1 990
IFK*=CHR$ (3) THENPLAY"CFB" : CR=CR+1

n:)ON:l EY(4)0N:KEY(

249¿i
.':.t-V
2510
2520
2530
254»
2550
2560
2570
2580
2590
2600
2610

FA=1 THENY='
: 5THENY= (
FA=7THENX = ]
FA=3THENX=!
FA=2THENX=:

=4THENX=¡

i=6THENX = :
FA=8THENX=)
FA=0THENONJGOBUB3080, 3200

i,CR, 16!

2620 GOSUB3210

►=CHR* ( 27 ) THENPLAY " CDE "
2640 GOSUB3210
2650 ONERROR6OTO3070
2660
2670
2680
2690

GOSUB2920
GOSUB2920
[X,Y),CR, 16:6OSUB2920
:X,Y),CR,16:GOSUB2920
FUTSPRITE0, (X,Y),CR,1Í
PUTSPRITE0, (X,Y),CR, U
=T+W:PUTSPRITE0, (X.Y) ,CR, lt
PUTSPRITE0, (X,Y) ,CR, lé

■ 50T0242S

GOSUB2920
GOSUB2920
GOSUB2920
bÜbüb29.'H

--TRAITS í< PARALLE-TAB

CERCLES

2/20
27Í0
2/4H
2750
O

2760 RETURN
2770
2780
2790

2800 R=2: IFSTRI6<0)=
LSECIRCLE(Z,T),S,CO,
2810 RETURN

2830 ' F4 — RECTAN6LES

2840 '

2850 R=3: IFSTRIG (0) =- 1THENL1NE ( X, <i
2860 RETURN
2870 '

2880 ' F5 — RECTANGLES REMF'L I

-<Z,T),C0:X1 = X:
■) ,COlLINE(Xl,Yl

) ,C0:LINE(X2,Y2)-

1 THENOABS ( X-Z ) : S=ABS ( Y

: I FC >STHENC I RCLE ( Z , T ) , C, CO, , , S/CE

3 6

2920 PUTSPRITE1, (Z, T) , CR, 1 : RETURN

2930 '

2940 ' F2 — PO I NT I LLEES

2960 R=5:PP=ABS<X-Z):II=ABS<Y-T>:IFSTRIG<0>=-1THENGOTO2970ELSEGOTO2500
2970 IFX<=ZANDY<=TTHENGOSUB3020
2980 IFX>=ZANDY<=TTHENGOSUB3030
2990 IFX>=ZANDY>=TTHENGOSUB3040
3000 IFX<=ZANDY>=TTHENGOSUB3050

3020 IF T STRIG (0) =-lTHENPSETSTEP ( <-RND ( 1 » «PP> + PP, ( " RN ? < í } * 1 ! ! t " ' ^
3030 IFSTRIG (O) =-1 THENPSETSTEP ( (-RND ( 1 I »PP) , < -RND * , CO: GOTO 2500

3040 IFSTRI G (0) =-1 THENPSETSTEP ( ( -RND < 1 > *PP> , < -RND < 1 > * > ,COl GOTO 25»
3050 I FSTR IG ( O ) - 1 THENPSE TSTEP ( ( -RND < 1 > *PP > +PP , < -RND ( 1 ) * 1 1 ) ) , CO: GOTO 2500
3060 GOTO2960
3070 RESUME2420
3080 '

3090 ' -- COORDONNEE X,Y,Z,T —
3100 '

SÍ*! uLe(30,168)-(76 ) 178»,2,BF:PSET(32,170),2:PRINT#2,"X:":PSET(40,170),2:PRINT
3130 LINE (30, 180) - (76, 194) , 15, BF: PSET (32, 183) , 15: PRINT#2, "Y: " : PSET (40, 183) , 15: PR
3140 2 L1NE (80, 16B) - ( 126, 178) , 10, BF: PSET (82, 170) , 10: PRINT#2, "x : » : PSET (90, 1 70) , 10: P
3Í50 # LÍNE(80, 180)-( 126, 194) , 13, BF: PSET (82, 183) , 13:PRINT#2, "y: ":PSET(90, 183) , 13:P
3Í60*UNE(130,168)-(185,178),6,BF:PSET(136,170),6:BB=X-Z:PRINT#2," X X":PSET(151,1
3170 6 Í.INE a»! Mf) - < 185, 194) , 5, BF: PSET ( 136, 183) , 5: I=Y-T: PRINT#2, "yY" : PSET < 151 , 18
3Í80 : c=ABsfx-Z,:S=ABS(Y-T):LINE(192,168)-(234,194),7,BF:PSET(195,l^

3190 PSET (201 , 177) , 7: IFOSTHENPRINT#2, CELSEPRINTK2, S
3200 RETURN

32 1 0 I FK*=CHR* ( 1 ) THENJ = 1 : PL AY "CFB"
3220 IFK*=CHR* (2) THENJ=2: PLAY"CFB"
3230 IFK$=CHR* (27) THENPLAY"EFG" : GOTO2250
3240 IFK*=CHR* (24) THENPLAY"GAB" : GOTO 1 30
3250 1FK*=CHR* (17) THENPLAY "CFB" : W=8
3260 IFK*=CHR$ ( 19) THENPLAY"CFB" : W=2

3270 IFK*=CHR*(4)THENPLAY"CFB":W=1 „-,.„,„ « cpjn

3280 IFK*=CHR$<12>mENCOLOR15.4.4:SCREEN0:PRINT" AUREVOIR

3290 IFKt=CHR* (11) THENF'LAY"CFB" : 0=0+1
3300 IFO>1THENO=0
3310 RETURN
5240 SP=1
5250 REM

5260 FORH=15TO20:PUTSPRITEH, (236, 197) , 0, H: NEXTH
5270 F0RH=1T015:PUTSPRITEH, (236, H* 13-16) , H, SP: NEXTH
5280 PUTSPRITE16, (220, 1),C0,15
5290 D=1:C0=1

5300 F=ST I CK ( 0) : I FC0< 1 ORD > 1 90THENGOTO5260
Í320 IFF=70RF=3ThInPLAY"CDE":F0RKM=1T016:LIN^

5340 IFF^TH^D-13Í C0=C0-1 : PUT8PRITE16, D) J CO, 13! F0RH-1T0»! NEXTH

5450 GOTO5300 _.

dL¡i¡SiT¡

is.T¡iffirj5tSi

Computer's
Bowlins

1 REM COMPUTER' S B0WLIN6

2 REM COPYRIGHT

3 REM CHARRIOT THIERRY

4 REM FAIT Lt 6 UUIUdKE 1985

5 REM POUR MSX MAGAZINE

6 REM

1 0 SCREEN0 : KEYOFF : C0L0R8 , 1

20 L0CATE9, 1 : PRINT'TOMPUTER' S B0WLIN6"

30 L0CATE9,2:PRINT M "

40 LOCATE 5, 10: PRINT"VOULEZ-VOUS LES REGLES DU JEU ?"

41 PLAY"m20000sl0o518gagafgaefgcdacdacdcad", "m20000sl0o418gaga
, "m20000sl0o718gaga*gaef gcdacdacdcad"

51 LOCATE 8, 14:PRINT"0 - Oui je veux bien."

52 LOCATE 8, 16:PRINT"N - Non je ne veux pas. "

53 LOCATE 12, 20: PRINT"Reponse: " : LOCATE20, 20: V*=INPUT$ < 1 )

54 IFPLAY (0) THEN54

60 IFV*="N"ORV*="n"THEN280
70 IFV*<>"o"ANDV*O"O"THEN50

74 REM JlHll»I«l»«J

75 REM REGLES DU JEU

76 REM «*»***J»»»JII

80 CLS:A=14:B=1:TE$="RE6LES":GOSUB1270:FORS=1TO300:NEXT

81 A= 1 4 : B=2 : TE*= " " : GOSUB 1 270 : F0RS= 1 TO300 : NE X T

90 A=l:B=3:TE*="Vous Commencez par

¡B=4:TE$="de BOULES. Ensui te
>=6:TE*="Votre But est

S=7: TE$=" Máximum de points en abattant le pli
130 A=0: B=B: TE*="De Ouilles possible !!!!": GOSUB1270
140 A=0:B=10: TE*="La Boule suit un Chemin programme í
: TE*="Lorsque vous appuyrez sur la Barre'
160 A=0:B=12:TE$="Espace,elle partirá
170 A=0:B=13:TE*="Quilles. ":GOSUB1270
180 A=10:B=14:TE$="Si Vous Abattez :": GOSUB 1 270

gaef gcdacdacdcad"

:": GOSUB 1270
GOSUB 1270
tion des": GOSUB 1270

210 A=0:B=17:TE$=
220 A=6:B=18:TE*=
230 A=0:B=19:TE»=
240 A=6:B=20:TE*='
250 A=0:B=21:TE*="- L,
260 A=6:B=22:T.E*="~ >

270 FORO=1TO4000:NEXT

271 REM ********«l»»»»H:*l**»»!l*

272 REM CHOIX DU NOMBRE DE BOULES
38

ale,

La Rangee des 2 Quil
-> 50 points par Quil
La Rangee des 3 Qui 1
-> 20 points par Quil
La Rangee des 4 Qui 1
points par Qui 1

5 Aure

¡LiTi'SiTsIftilGjSj

273 REM iii»»«»J«i»tJíUJt»*tlJ»«

280 BEEP: PLAY " v 1 5o3aced " , " v 1 5o4aced " , " v 1 5o5aced "
285 CLS:L0CATE9, 1 :PRINT"COMPUTER'S BOWLING "
290 L0CATE9,2:PRINT"-

DE BOULES"

410 IFR«="4"THENBA=40: BO=40: GOTO440
420 IFR*="5"THENBA=50: BO=50: 6OTO440
430 GGTO370

440 LOCATE 25,22: PRINT"Merci !!"

450 fori=1to400:next

454 rem *«*»*«**»»**

455 rem initialisation
45¿ rem mstttmtm

460 COLOR ,12,12:SCREEN2,2
470 RESTORE510:A«=""
480 OPEN"grp: "FOROUTPUTAS#l

f), 0,0, 0,224, 240, 240, i:

112,240

300 LOCATE 3,5:PRINT"CH0ISISSEZ LE l>
310 LOCATE 9,8:PRINT"1 - 10 BOULES"
320 LOCATE 9, 10:PRINT"2 - 20 BOULES'
330 LOCATE 9, 12: PRINT"3 - 30 BOULES'
340 LOCATE 9, 14:PRINT"4 - 40 BOULES'
350 LOCATE 9,16:PRINT"5 - 50 BOULES'
360 LOCATE 9, 20: PRINT"VOTRE CHOIX ?'

370 LOCATE 23, 20: R*=INPUT» < 1 >

371 IF PLAY(0)THEN371
380 I FR*= " 1 " THENBA= 1 0: BO= 1 0: 6OTO440
390 I FR$= " 2 " THEN8A=20 : BO=20: GOTO440
400 I FR*= " 3 " THENBA=30 : BO=30 : GOTO440

485 COLORI : PRESET (30, 85) : PRINTH1 , " ATTENTION, CA VA COMMENCER

486 PLAY"vl5o4abagferere", " vl5o3abagf erere" , "vl5o5abagf erere"
490 F0RI=1T032:READA:A*=A*+CHR*(A):NEXTI

500 SPRITE*(0)=A*

510 DATA 0,7,31,63,127,127,255,255,255,255, 127,127,63,31,7,0,0,0,192,224,240,240
, 248, 248, 248, 248, 240, 240, 224, 192, 0, 0
520 FORJ=1TO10
530 A*=""

540 F0RI=1T032:READA:A»=A»+CHR»(A):NEXTI
550 SPRITE»(J)=A$
560 RESTORE570: NEXTJ

570 DATA 0,0,31,63,60,59,59,63,63,59,59,60,63,31
, 240, 112,1 12, 240, 240, 224,0, 0
580 CLS:LINE(15,0)-(250,0) , 1 : LINE- (250, 180) , 1 : LINE- ( 15, 180) , 1:LINE(15, 160)-(15,
> i 1

590 LINE (15, 160) - (230, 160) , 1
600 LINEU5. 16>-<250, 16) , 1

602 LINE (249,179)-(15,179),1

603 LINE (15,159)-(230,159),1

604 LINE (15, 17Í-I250, 17), 1

605 LINE (15, l)-(250, 1) , 1

606 LINE(20,20)-(95,30),4,BF

607 LINE (96, 20) -(171, 30), 15, BF

608 LINE(172,20)-(246,30),8,BF

609 COLOR13:PRESET(40, 150):PRINT#

610 SC=0

620 COLOR8:PRESET(20,5) :PRINT#1, "SCORE: "¡SC
630 C0L0R8 : PRESET ( 155, 5) : PRINTttl , "BOULES: " i 1
640 PUTSPRITE1, (16, 33), 4,1
650 PUTSPRITE2, (16,64) ,4,2
660 PUTSPRITE3, (16,96) ,4,3
670 PUTSPRITE4, (16, 127), 4, 4
680 PUTSPRITE5, (31, 49), 4, 5
690 PUTSPRITE6, (31,81) ,4,6
700 PUTSPRITE7, (31,1111,4,7
710 PUTSPRITE8, (46,64) ,4,8
720 PUTSPRITE9, (46, 96), 4, 9
730 PUTSPRITE10, (61, 81), 4, 10

734 rem m*»m*m***mt

735 REM PROGRAMME PRINCIPAL

736 REM tmtt*:

MSX MAGAZINE 1985"

750 PUTSPR1TE0, (X, Y) , 1 , 0
760 FORA=1TO400:NEXTA
770 PUTSPRITE0, (X, Y) , 1 , 0
780 X=X+4

790 IFX>=230THENX=234:6OTO810
800 GOTO 770

810 ONSTRIGGOSUB900:STRIG(0)ON
820 PUTSPRITE0, <X,Y) , 1,0

840 IFY<=16THENY=1
850 GOTO820
860 PUTSPRITE0, (X,
870 Y=Y+6

:BEEP:GOTO860

740 >

'=162

= 1 64THEN Y= 1 64 : BEEP : 6OTO820

a L = I = S=T= I =N=G=S^ =====

890 GOTO860

900 X=234:STRIG(0>OFF:SPRITEOFF:ONSPRITEGOSUB950:SPRITEON
910 PUTSPRITE0, (X, Y) , 1 ,0
920 X=X-4

930 I FX< 1 0THENSTR I G ( 0 ) OFF : SPR I TEOFF : GOTO 1 1 30
940 GOTO910

944 REM l*l»»*l*»HtI»»IIIIt«»««»««I

945 REM TRA I TEMENT COLLISION SPR I TES

946 REM *tlll**»*t*«t«t$**t*»»ttlt*l

950 STRIG(0)OFF:SPRITEOFF

960 IFX<=67ANDX>=55THENSC=SC+100:PLAY"SBM1600N75N65", "S8M1600N70N60": GOTOl 020
970 PLAY"V15L6401G"

980 I FX< =54ANDX >=42THENSC=SC+50: GOTO 1030
990 IFX< =4 1 ANDX >=29THENSC=SC+20 : GOTO 1 060
1 000 I FX< =28ANDX >= 1 0THENSC=SC+ 1 0: GOTO 1 090
1010 GOTO1030

1020 FORJ=1TO10:PUTSPRITEJ, (0, 0) , 12, J : NEXTJ: BO=BO+1 : BA=BA+1 : QU=1 : 60T01 130

1030 IFY<=77ANDY>=46THENPUTSPRITE8, (0, -20) ,12,8: GOTOl 130

1040 I F Y< =77ANDY >=46THENPUTSPRI TEB, (0, -20) , 12, 8: 60T01 130

1050 IFY<=112ANDY>=78THENPUTSPRITE9, (0, -40) , 12, 9: GOTOl 130

1060 IFY<=62ANDY>=25THENPUTSPRITE5, (0, -60) , 12, 5: GOTOl 130

1070 IFY<=92ANDY>=63THENPUTSPRITE6, (0, -80) , 12, 6: GOTOl 130

1080 IFY<=127ANDY>=93THENPUTSPRITE7, (0, -100) , 12,7: GOTOl 130

1090 IFY<=45ANDY>=0THENPUTSPRITE1, (0, -120) , 12, 1 : GOTOl 130

1100 IFY<=77ANDY>=46THENPUTSPR1TE2, (0, -140) , 12, 2: GOTOl 130

1110 IFY<=108ANDY>=78THENPUTSPRITE3, (0, -160) , 12, 3: GOTOl 130

1120 IFY<=143ANDY>=109THENPUTSPR1TE4, (-20, -20) , 0, 4: GOTOl 130

1 130 LINE (70, 5) - ( 140, 14) , 12, BF: PRESET ( 70, 5) : PRINT#1 , SC

1140 BO=BO-1:SPRITEOFF:STRIG(0)OFF

1150 LINE (213, 5) -(248, 14) , 12, BF: PRESET (213, 5) : PRINT#1 , BO: FORR=1TO500:NEXT
1160 IFQU=1THENQU=0:GOTO640

1164 REM «HHttlIlUU»»

1165 REM FIN DE LA PARTIE

1166 REM ||»»*H*»II«III«

1170 IFBO=0THENFORI=0TO11:PUTSPRITEI, (0, 0) , 0, I : NEXTI : BEEP: LINE (20, 20) - (95, 178) , 4
,BF:LINE<96,20)-<171, 178) , 15, BF: LINE ( 1 72, 20) - (246, 178) , 8, BF: C0L0R8: PRESET ( 100, 80
) : PRINT#1 , "6AME-0VER" : PLAY"V1503DEFACEG" , "V1506FEFACEG" , "V1505DCFACEG":CL0SE#ll6
OTO 1190
1180 GOTO 740

1 190 FORI = 1 TO4000: NEXT : SCREEN0: COLORB, 1 : LOCATE 1 , 6
1200 PRINP'Votre Pourcentage de Reussite est:"
1205 PR=SC/BA

1210 LOCATE 11,8:PRINTPR; " 7. ":PRINT
1212 IF PR>HS THENHS=PR

1215 LOCATE 2, 13: PRINT"HI -SCORE: "; HS; " 7."
1220 LOCATE4,20:PRINT"Voulez-Vous Rejouer ?":
1230 LOCATE26,20:S*=INPUT$(1)

1240 IFS*="o"ORS$="0" THEN BA=0: BO=0: SC=0: X=0: Y=0: PR=0: GOTO280

1250 IFS*="n"ORS*="N" THEN CLS: LOCATE 10, 10: BEEP: PRINT "A BIENTOT ! ! ": PLAY"S8M1500
ABA" , "S8M5000GDG" : END
1260 GOTO 1230

1264 REM t**tStttt*******Sltm*

1265 REM S-PROGRAMME POUR REGLES

1266 REM »IH*$t*t*»*l»«»J»»««*»

1270 FORI=lTOLEN(TE*)

1280 LOCA TEA, B

1290 PRINTLEFT* (TE*, I ) : BEEP

1300 FORJ=1TO80:NEXT

1310 NEXTI : RETURN

Chronoiü

1 CLS I DEF I NTA- Z I DEFSNG E

2 INPUT" INTERVALLE DE TEMPSdou plus) "¡ INi IN»IN*50i IF IN<50THEN2

3 INPUT"DEPART <MN f SEO , RECURENCE (Négatl i pour rebour») " i M, S, Ri DE-M*60+S

4 INPUT"COULEURS CADRE.SEC. ,(1IN. "(CO.C.CCl IFCO130RO150RCO13THEN4

3 I NPUT " COORDONNEES DU COIN SUPERIEUR GAUCHE(X,Y MULTIPLES DE 8) , ECHELLE (de 1 *
6)"|X,Y,ECHl IFECH<10RECH>6THEN5ELSE ECH«ECH«.5

6 I FXMOD8< >00RYM0D8< >0THEN3

7 ONINTERVAL-IN G0SUB37

8 0NKEYG0SUB64

9 A» <0>=" 143376"

10 A«<l>-"43"

11 A» (2) -"14273"

12 A«<3>»" 14233"

13 A«<4>-"623"

14 A«<3>-"16233"
13 A«<6)-"162337"

16 A» (7) -"143"

17 A«(B>-"1234367"

18 A« (9) -"123436"

19 FOR K-1T07

20 READX 1 (K) , Y 1 (K) ,X2(K) , Y2 (K)

21 XI <K>-X+X1 <K)«ECHlYl (Kl-Y+Yl (K)*ECH

22 X2<K)-X+X2(K) «ECHi Y2(K) -Y+Y2ÍK) *ECH

23 NEXTK

24 DATAO.O, 16, 4, 0, 12, 16, 16, O, 24, 16,28, 12,0, 16, 16, 12, 12, 16, 28, 0, 0, 4, 16, 0, 12, 4, 28
23 SCREEN2 1 C0L0RC0 , 1 , 1 1 CLS I T-DE I II— llU—ll UU— 1

26 L INE ( X-7*ECH, Y-4*ECH> - ( X+B6tECH, Y-4*ECH> , CO, B

27 FORH-0TO2

28 E-4*ECHl XX-X-7*ECH+H*44*ECHl YY-Y-4*ECH

29 DRAWS-EiBM-XX; ,-YY|F3E2L4"

30 XX-X-7»ECH+H*44*ECH: YY-Y+32*ECH

31 DRAW"S-E|BM-XX| ,-YYjE3F2L4"

32 NEXTH

33 LINE < X-7*ECH, Y+32*ECH> - ( X+B6*ECH, Y+32*ECH) , CO, B

34 G0SUB38 I I NTERVALON : KEY ( 1 ) ON
33 G0T035

36 REM: BOUCLE TEMPS

37 KEY < 1 ) STOPl T-T+Rl I FT< OTHEN I NTERVALOFF l KEY ( 1 ) ONl RETURN

38 SOTM0D60: I-SCMODlOl 1 2-1 1 1 I I-SC\ 10

39 MN-T\60M0D60: Ul-Ul U-MNMODlOl U2-UUI UU-MNS 10

40 LINE(X+64tECH, Y) - (X+80*ECH, Y+28HECH) , l.BF

41 F0RJ=1T0LEN<A»<I> )

42 K-VAL(MID«(A«(I> ,J,1>)

43 LINE (XI <K)+64*ECH, Yl (K> ) - ( X2 <K) +64*ECH, Y2 <K> ) ,C,BF

44 NEXTJ

L-Tg'S'g'TalgNBGaSa

i

151 PRI NT» l."ERREUR"l COLOR 21 RETURN

1999 ' FEL I C I T AT I ONS

2000 PLAY"H 2N36N38N40N4 1 N40N38N36 " 1 COLO
R 4 1 DRAW " BM8 1 160" i PRINTdl , "BRAVO" l COLOR
2

2010 RETURN

2999 'ON ATTEND LA FRAPPE D' UNE TOUCHE

3000 DRAWBM8. 184" I PRINT#1 . "APPUIE SUR U
NE TOUCHE"

3010 W«-INKEY««IF W«<>"" THEN GOTO 3010

3020 W«-INPUT«<1>

3030 LINE<0. ie4)-(2S5. 191) .O.BF

3040 RETURN

4999 'SAISIE DE LA QUESTIONiON PEUT
EFFACER AVEC DELETE

5000 B«-""

3010 FOR W-0 TO IN

5020 XX-X0+<8»W> I DRAW"BH-XX J . -YOl " I PRIN

5030 XX-X1*(8»W> iDRAW"BM-XXl,-Yll"iPRIN

T«l."?"

5040 W«-INKEY«lIF W«<>"" THEN 60T0 5040
5050 W*-INPUT*(1>

5060 IF W*-CHR*(127) THEN BEEP» LINE <X0. Y
0>-<XO+16.YO*8) .O.BFl LINE (X 1 . Yl > - (Xl+16
,Y1+8>,0.BFIG0T0 5000

5070 IF W*-CHR«C13> THEN N*-" " i W-l • 60T0

5090

5060 IF W*<"0" OR W»>"9" THEN GOTO 5060
5090 XX-X0+<8*W)l LINE (XX • YO) — <XX+8» Y0+8
Í.O.BFi DRAW"BM-XXj,-YO»"lPRINT«l.W»
5100 XX-Xl+<8**>l LINE<XX.Yl>-<XX*8.Yl+8
>. O.BFl DRAW"BM-XX»,-Ylj"iPRINT«l.N*
5110 B»-B»+W»l TR-VAL (B*>
3120 NEXT W
5130 RETURN

6999 'CHOIX DU NIVEAU DE DIFFICULTE

7000 LOCATE 2. O, Oí PRINT"PR0GRESSI0N ARIT
HHETIQUE"! RESTORE 7SO0IF0R W-0 TO UFOR
X-0 TO 9i READT <W, X > INEXT XINEXT Wl FOR X-
O TO 3iREADU(X)iNEXT X

7100 LOCATE O. 23. 1 l PRINT"NI VEAU DE DIFFI
CULTE (1 A 4)?"|

7110 W«-INKEY«lEE-RND(l> ■ IF W*< " 1 " OR W*
>"4" THEN GOTO 7110

7120 ON VAL<W«)G0SUB 7140.7150.7160.7170
7130 RETURN

7140 A-OlB-OiDI-ll RETURN

7150 A-HB-0IDI-21RETURN

7160 A-OlB-l: DI »3l RETURN

7170 A-l : B-l I DI-4I RETURN

75O0 DATAl.2,3,4,5,6,8. 10. 15.20

7510 DATA7.9, 11. 12. 13, 14. 16. 17. 18. 19

7520 DATA20, 15, 10.5

45 IFII-I2THEN51

46 LINE(X+44*ECH, Y) - (X+60«ECH, Y+2B*ECH) , 1 , BF

47 F0RJ-1T0LEN<A«(II>>

4B K=VAL (MIDS (A* í I I ) , J, 1 ) )

49 LINE (XI <K)+44*ECH, Yl <K> > - ( X2 <K> +44*ECH, Y2 (K) ) ,C,BF

30 NEXTJ

31 IFU-U1THEN37

32 LINE (X+20*ECH, Y) - ( X+36*ECH, Y+2B»ECH> , 1 , BF

33 F0RJ-1T0LEN(A»<U> >

34 K»VAL<riID«(A«(U) , J, 1) )

33 LINEUl <K)+20*ECH,Y1 (K) > - < X2 <K > +20*ECH, Y2 <K> ) ,CC,BF
56 NEXTJ

37 IFUU"U2THENKEY < 1 > ONi RETURN

3B LINEÍX, Y>-<X+16*ECH,Y+28*ECH> , 1 , BF

39 F0RJ«1T0LEN<A«<UU> >

60 K-VAL(MID«(A*(UU>,J,1>>

61 LINE<X1 <K),Y1 <K))-(X2<K) ,Y2(K>) ,CC,BF

62 NEXTJ

63 KEY ( 1 ) ONl RETURN

64 INTERVALOFFlT-DE: 1 1 — 1 ! U=-l l UU=- 1

63 LINE(X+64*ECH,Y)-(X+80*ECH, Y+28*ECH) , l.BF

66 LINE ( X+44*ECH, Y) - < X+60*ECH, Y+28*ECH> , 1 , BF

67 LINE (X+20*ECH, Y) - ( X+36*ECH, Y+28*ECH) , 1 , BF

68 LINEÍX, Y)-(X+16»ECH, Y+2B*ECH) , 1 , BF

69 G0SUB38: INTERVALON: RETURN

43

¡ L ¡ TgS5T5liNiG5S"i

it:print:stop

390 IF Z*="N" OR Z*="r," THEN END ELSE IF Z*<>"0" 8ND Z*<>"o" THEN 388
430 PPINT-.PR1NT "* fl>,ec la «ene fonctior, ?" ; : Z*=INPUTS C 1 ) : PRINT
410 IF Z*="0" OR Z*="o- THEM 100 ELSE IF Z*="N" OR Z* = "n" THEN 20 ELSE 400
420 IF Z*="N" OR Z*="n" THEN 20 ELSE 480

900 '

901 ' RESOLUTION F<X)=8

902 '

990 CLS:KEY 1,"RUN 1005"+CHR»<13)
1088 CLS:PRINT"RES0LU1
e 5888 et relancez la
1085 PRINT-.PRINT"* tapez les bornes de l'interualle datis lequel r(x>"« < ave ae
s x>:":INPUT ñ,B
1010 x=8:gosub 5000:yi«y

1020 X=B:60SUB 5000:Y2-Y

1030 IF Y1*Y2>8 THEN 1005

1040 IF Yl=8 THEN FF=fi:80T0 2080

1050 IF Y2=0 THEN FF=B: GOTO 2008

1060 IF Y1>0 THEN SURP fi.B

1878 C=(fl+B)/2:IF C=fi OR C=B THEN FF=C:GOTO 2008
1080 X=C:GOSUB 5888: IF Y = 8 THEN FF=C:GOTO 2880
J09B IF Y<0 THEN fl=C ELSE 8-C
1 180 GOTO 1070

.:000 PRINT :PRINT"* F(X>=8 pour X= ■ ; FF
.•*<0 ?$=INKEY*

?m ir z»»"" then 2010 ¿- „

<-m?8 tf Z*=CHR*<27) THEN LPRINT"* F<X>=0 POUR X= ":FF:LPR1NT" OU F<X> EST DE Lfi

forme :".:llist 5000

2048 F.NO
509B Y=1^X
5018 PFTURN

5997 '

5998 ' COPIE ECRflN SUR IMPRIMANTE

6000 SPPITE»<1>«CHR*<0> + CHR«<24>+CHR*<24>+CHR*<!26>+CHR«M26>+CHR*<24>+CHR*<24>
¿010 LPRINT CHR*<27>; "Q"; :LPRINT CHP* < 27 : " T0S " :

6020 IF BB/2=INT<BB/2^ THEN D=0 ELSE D=l

6030 FOR Y=D TO 191 STEP 2

f,040 LPRINT CHR*< 18>; : LPRINT CHR*<13>;

6050 FOR X=0 TO 254 STEP 2

6060 P=0

6070 IF P0INT<X,Y)<>4 OR PO I NT C X+ 1 , Y > <>4 THEN P'l
6888 IF P=8 THEN LPRINT" "¡ ELSE LPRINT-+";
6098 PUT SPR1 T E 1,<X,Y>,16,I

6188 NEXT : NEXT _

6118 LPRINT CHR*<27>;"I

6128 LLIST 388

6 ' PRESENTATION
18 CLS:COLOR 15,4,

-LiliSiTiliNiGiSi

NT:STOP

35 '

36 ' SftISIE OES DONNEES
3? '

100 H=0:PRINT:PRINT"Donr>ez ]
lie INPUT X1,X2,Y1,Y2: IF Kt!
IES IFY1>=Y2 THEH PR I NT " I L

130 INPUT "**Donnez les bornes de 1 ' interval le d'e
140 IF T1>=T2 THEN PRINT"IL FflUT T2>T1 '":G0T0 130
150 INPUT "donnez le pas de variation O01 de T";0:I

155 '

156 ' ECHELLE ET RXES

157 '

160 SCREEN 2:C0L0R 1 5 , 4 , 4 : L 1 =8 : L2= 1 9 1 : C 1 =0 : C2=255
170 ftl = <Cl-C2)^<Xl-X2):fi2=Cl-ftl*Xl:81 = <L2-Ll>-'<Yl-Y2):B2=L
180 IF Y1*Y2<=0 THEN B= I NT < B2+ . 5) : L I NE < C 1 , B > - < C2 , E
190 IF X1*X2<=0 THEN fl = I NT c. R2* . 5 ) : L I NE <R,Ll>-<fl,Li
200 A*INT< Al +A2+. 5> : IF <A-C1 >*<A-C2>>8 THEN 230 ELS

205 '

206 ' GRADUAT ION

2 8 7

210 FOR Y=B-2 TO B+3:IF < Y-L 1 ) * < Y-L2 )< »8 THEN PSET
220 NEXT

230 B-INTCB1+B2+. 5> : IF C B-L 1 ) * < B-L2 ) >0 THEN 260 EL?
240 FOR X = R-2 TO A+2:IF < X-C 1 > * < X-C2 >< =0 THEN PSET
250 NEXT

256 ' TRACE DE LA COURBE

257 '

260 FOR T-Tl TO T2 STEP 0
300 X=T*COS<T>
310 Y=T*SIN<T>

320 A=INTCA1*X+A2*.5): IF <H-C 1 > * < R-C2 > >0 THEN H=0:GOTO 360
330 B=INT<Bl*Y+B2+.5>: IF < B-L 1 > * < B-L2 > >0 THEN H*0:6OTO 360
340 IF H=0 THEN PSET <A,B>:H=1 ELSE L I NE < U , U> - < A , B>
350 U=R:U=B
360 NEXT

365 PLRY"U1503CDEFGA8C"

366 '

367 ' QUELLE SUITE ?

368 '

370 R»=INKEY*:IF R$ = "" THEN 370 ELSE IF R*=CHR*<27> THEN GOTO 628
380 SCREEN 8: INPUT"*** UOULEZ UOUS UN RUTRE GPRPH I QUE 'O^N>":Z*
390 IF Z*="N" OR Z*="n" THEN END ELSE IF Z*<>"0" ANO Z*<>"o" THEN 380
400 PRINT: INPUT"*** RUEC LR MEME FONC T 1 ON ' O'N ) " ; Z*

410 IF Z*="0" OR Z*="o" THEN 100 ELSE IF Z*="N" OR Z*="r>" THEN 20 ELSE 400
600 '

605 ' COPIE ECRRN SUR IMPRIMANTE

607 '

620 SPRITE*<1>=CHRÍ<8,H0>+CHR*<24)+CHR*<24)*CHR*( 126>+CHP*< 1 26 > +CHR* < 24 > +CHR* < 24 >

630 LPPINT CHR*<27>; "O"; ¡LPRINT CHR* < 27 > ; "T08" ;

640 IF BB>"2=INT<BB'2> THEN D = 0 ELSE D=l

650 FOR Y=D TO 191 STEP 2

660 LPRINTCHR*<10>: :LPRINTCHR*< 13);

670 FOR X=0 TO 254 STEP 2

680 P»0

700 IF P0INT<X,Y><>4 OR P01NT<X+1.Y)<>4 THEN P=l ..
720 IF P=0 THEN LPRINT " "¡ ELSE LPPINT"*";
730 PUT SPRITE 1,<X,Y>,10,1
740 NEXT: NEXT

750 LPRINT CHR$<27>; " N " ; CHR* < 27 > ; " A " : LPR I NT " X 1 : X 1 , "X2= - ; X2: LPR I NT " Y 1 ; Yl , - Y2=

";Y2

760 LLIST 380-310

Petites Al

NNONCES

1^

¡Épli

mm

I

¡ItMIII

¡ütü

«.«.7, 47 .p* ,9 1.

¡lili

;t»:•.¡=^:^r ,,, ""

ilflii

^=

1

muí

annoncí tísmtí aux noftssiONNtis

mtms

noniíTMitis m dkoits di repkoduction

'O

Ktt ASSURE LA REPRODUCTION

ou dupkotion
de vos disquettes ou cassettes

r. ri/7. i- 1/4.

PeütesAní

50

Turbo Pascal
sur votre MSX

Farile á utiliser, rapide - et un prix sympathique :
Turbo Pascal est l'outíl de programmation nouvelle génération qui vous donne accés aux applkations de haut niveau.